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IDENTIFICATION: 

AUTHOR: 

ACCEPTED: 

PURPOSE: 

COMPUTER 

CONFIGURATION: 

SUBROUTINES 

REQUIRED: 

STORAGE: 

TIMING: 

USE: 


PROGRAM DESCRIPTION 

Catalog Number 300012B 


SEL 810A/B BCD to ASCII 
Systems Engineering Laboratories 
January 22, 1969 

To translate a buffer of data from BCD to ASCII. 


SEL 810A/B 


None 

105 octal locations. 

Approximately 35 + 35 cycles per location. 

Calling sequence is: 

LAA X 

CALL BCDASC 
DAC BUF 

DATA N 

Where BUFF is address of first location of buffer. 

N is the number of words in’buffer. 

For values of X: 

a. If Bit 0 of the A register is zero, the BCD charac¬ 
ter is obtained from Bits 0-5 of the buffer word; 
otherwise, the BCD character is obtained from 
Bits 10-15, 

b. If Bit 1 of the A register is zero, the ASCII charac¬ 
ter will be stored in Bits 8-15 of the buffer word; 
otherwise, it will be stored in Bits 0-7. 

N/A 


METHOD: 





PAGE 0031 



910A/9 
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00000 
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• 
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# 

IF 
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oooooooo 

« 
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* 
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CALLING SEQUENCE 
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oooooooo 

» 


LAA FLAG 

A P<aS leaves in LH 8 -31TS 

aoio 
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oooooooo 

• 


CALL 3C0A 

A NE5 LEAVES IN RH 9 BITS 
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00000 

oooooooo 

• 


DAC BUF 
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oooooooo 


. 
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0014 
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oooooooo 
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oooooooo 
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0015 

00000 
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* 

0016 

09000 

oooooooo 
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SAP....... 
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00003 

02100045 



L8A N0P 


0020 

00004 
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STB SHFT 
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00005 
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LSL 1 

3 
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00006 
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.. A . 
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04100033 



STB SHF 
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LAA# 8C0A 

BUFFER 
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03100041 
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0028 

00014 
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IMS 8C0A. 
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01300000 
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... 

NtU..... 


0031 
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03100042 
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0032 

00020 
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3041 
0042 
0043 
0044 
3045 
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0051 
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0053 
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0071 
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LBA 

TA3L.1 
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00030 00000024 

SAP 







00031 03001013 

*LL 
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00032 00000004 

T BA 
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..... 
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00034 03300041 

STA. 
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00035 14100041 

IMS 

TWO 






00036 14100042 

IMS 

CNT 






00037 11100021 

uau 

AON 






00040 11300000 
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00041-.00000.001 IND.... 

BSS. - 

1-.-.-. 

IMUIKEOT 

3JFFEH 




00042 00000001 CMT 

ttSS 

1 
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MB 0F Wii)30S 
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d FFFH 


00043 00001215 KS1U 

KSL 
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00044 00001015 RSL« 

HSU 

8 






00045 00000033 WOP 
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00046 00000000 * 





MOU‘ 

1/10/69 


00046- 00000000 * 

--.... - 

. -.- . . . 

BCD 

ASCII 

«0L- 

1/10/69 

•a 

00046 00000000 * 





MQL 

l /10/69 

• 8 

00046.00130261 TABL 

BATA 

»130261 

00.01 

260,261 

mOL 

1/10/69 

•a 

00047 00131263 

OA f A 

*131263 

02,03 

262,263 

HD Li 

1/10/69 

• 8 

0005000132265 

BATA 

•132265_ 

_04.Q5 

264,265_ 

_m QU¬ 

. 1/10/69 
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00051 00133267 

BATA 

*133267 

06,07 

266,267 

MO L 

1 .'10/69 

• 9 

0005 2-.0013 4 271_ 

BATA 

*134271 

10.11 

270,271 

. MOL- 

1/10/69 

•a 

00053 00130275 

BATA 

*130275 

12,13 

260,275 

HOL 

1 /10/&9 

•9 

00054 00123672 

UAtA 

♦123672 

14,15 

247,272 

MUL. 

1/10/69 

*9 

00055 00137300 

BATA 

*137300 

16,17 

276,300 

mdu 
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00056 00120257 
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*120257 
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240,257 
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00057 00151724 
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MDu 

t '10/69 

• 9 

00062 00154732 
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00063 00157254 
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#B 
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UATA 
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250,243 
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00065 00156242 
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*15624? 

36,37 

334,242 
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00067 00145714 
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*146716 

44,45 
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MQl 
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00071 00147720 
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